home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / vartest.ra < prev    next >
Encoding:
Text File  |  1986-12-11  |  743 b   |  56 lines  |  [THED/THTH]
  1. |
  2. |  RA¬
  3. |  Variable window example
  4. |
  5. |   ⌐ 1986 COM~LINK & S.Koren
  6. |
  7. #M;
  8. "After you run this program,!"
  9. "play with the 'Variables' window."
  10. #A;
  11. "Processing LONGS!"
  12. 25 A:
  13. (A. A.: A. 1 - A: A. ~)   | longints
  14. "Processing REALS!"
  15. 25 A: 25.0 A:í
  16. (A.í A.:í A. ~ A. 1 - A: A.í 1.0 -í A:í )  | reals
  17. #F;
  18. "Processing a few STRINGS!"
  19. áthisá Aá╢
  20. áisá Bá╢
  21. áaá Cá╢
  22. ástringá Dá╢ 
  23. "ALL DONE.!"
  24.  
  25. $
  26. &F 1 A: #B; `
  27. &B 2 A: #C; `
  28. &C 3 A: #D; `
  29. &D 4 A: #E; `
  30. &E 5 A: `
  31. &A
  32. "!!Hit any key: " ?ñ ╡ @`
  33. |
  34. |  RA title routine
  35. |
  36. &M
  37. #P,5,5;
  38. #G,10,10;
  39. #L,225,10;
  40. #L,225,105;
  41. #L,10,105;
  42. #L,10,10; 
  43. #O; #Q; `
  44.  
  45. &G 1% 2% Ñ0A893╝ª `
  46. &L 1% 2% Ñ0A891╝ª `
  47. &O
  48. 40 100 ╜
  49. "RA¬"
  50. 60 40 ╜ 
  51. "⌐ 1986/7 COM~LINK & S.Koren" 
  52. 80 60 ╜
  53. "All rights reserved." `
  54. &P 1% 2% Ñ0A89B╝ª `
  55. &Q ?ñ @ ╡`
  56. $